home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / misc / a-d / artic1_63 / install_artic < prev    next >
Encoding:
Text File  |  1978-06-29  |  4.1 KB  |  152 lines
  1.  
  2. ; ARTIC Installation script.
  3. ; by AlgarSoft
  4.  
  5. Version >NIL: exec.library 37
  6. If WARN 
  7.   echo "Sorry Artic Package requires KickStart >= 2.0 !"
  8.   Quit
  9. EndIf
  10.  
  11. Echo "*n*n*E[32mA R T I C  Installation Script *E[0m *n*n"
  12. Ask "Do you really want to install ARTIC on your system (y/n)?"
  13.  
  14. If WARN                                              
  15.  
  16.   assign >NIL: Artic_Disk: exists
  17.   if WARN
  18.     assign Artic_Disk: ""
  19.     set tipo "file"
  20.   else
  21.     set tipo "disk"
  22.   endif
  23.  
  24.   if EXISTS s:Uninstall_Artic
  25.     echo "*nUninstallation script found !*n"     
  26.     echo "You Should delete old ARTIC files before installing the new ones"
  27.     echo "answering 'y' to the following question:*n"
  28.     failat 50
  29.     execute s:Uninstall_Artic
  30.     failat 10
  31.   endif
  32.  
  33.   if EXISTS c:requestfile
  34.     set rq "T"
  35.     Echo "*nC:requestfile FOUND!*n"
  36.     Echo "*n (When Asked by the requestfile about where to put files,"
  37.     Echo   "  You can CREATE a new directory just typing in the new name)."
  38.   else
  39.     set rq "F"
  40.   endif
  41.  
  42.   Echo "*n; Uninstall_Artic script 1994 by Algarsoft"        >t:un
  43.   Echo "*n; Artic installed from floppy on : `date`"        >>t:un
  44.   Echo "; Artic   version: `version Artic_Disk:ar/artic`"    >>t:un
  45.   Echo "; Manager version: `version Artic_Disk:ar/aman`*n" >>t:un  
  46.   Echo "failat 10" >>t:un
  47.   Echo "Ask *"Do you really want to de-install artic from your System ?*"" >>t:un
  48.   Echo "if WARN" >>t:un
  49.  
  50.   Echo "*n*n*E[32mInstalling ARTIC Files...*E[0m*n"
  51.  
  52.   Echo "HANDLER"
  53.   if exists Artic_Disk:ar/artic020_demo
  54.     ask "Install 68020+ demo version ?"
  55.     if WARN  
  56.       copy Artic_Disk:ar/artic020_demo l:artic
  57.     else  
  58.       copy Artic_Disk:ar/artic l:artic
  59.     endif 
  60.   else
  61.     copy Artic_Disk:ar/artic l:artic
  62.   endif
  63.   Echo "  delete l:artic" >>t:un
  64.  
  65.   Echo "COMMANDS"
  66.   if $rq EQ "T"
  67.     set cmds `requestfile TITLE="Select dir for cli commands" DRAWER="C:" DRAWERSONLY SAVEMODE`
  68.     get cmds >NIL:
  69.     if WARN
  70.       quit
  71.     endif 
  72.   else
  73.     Echo "*E[32mWARNING*E[0m C:Requestfile NOT found ! Commands will be copied into c:."
  74.     set cmds "C:"
  75.   endif
  76.   copy Artic_Disk:ar/(adir|artrem) $cmds
  77.   Echo "  delete $cmds(adir|artrem)" >>t:un
  78.  
  79.   Echo "MANAGER"
  80.   if $rq EQ "T"
  81.     set aman `requestfile TITLE="Select dir for Manager" DRAWER="sys:Prefs" DRAWERSONLY SAVEMODE`
  82.     get aman >NIL:
  83.     if WARN
  84.       quit
  85.     endif 
  86.   else
  87.     Echo "*E[32mWARNING*E[0m C:Requestfile NOT found ! The manager will be copied into SYS:prefs"
  88.     set aman "Sys:Prefs/"
  89.   endif
  90.   copy Artic_Disk:ar/aman#? $aman
  91.   Echo "  delete $aman(aman#?)" >>t:un
  92.  
  93.   Echo "HELP FILES"
  94.   if $rq EQ "T"
  95.     set help `requestfile TITLE="Select dir for HelpFiles" DRAWER="s:" DRAWERSONLY SAVEMODE`
  96.     get help >NIL:
  97.     if WARN
  98.       quit
  99.     endif 
  100.   else
  101.     Echo "*E[32mWARNING*E[0m C:Requestfile NOT found ! The help files will be copied into S:"
  102.     set help "S:"
  103.   endif
  104.  
  105.   ask "*nDo you want the ITALIAN online help for the manager ?"
  106.   if WARN 
  107.     echo "Installing ITALIAN online help"
  108.     copy Artic_Disk:ar/Artic_Manager_ita.guide  `get help`Artic_Manager.guide
  109.   else
  110.     echo "Installing ENGLISH online help for the manager."
  111.     copy Artic_Disk:ar/Artic_Manager_eng.guide  `get help`Artic_Manager.guide
  112.   endif
  113.   copy Artic_Disk:ar/Artic.guide $help
  114.   copy Artic_Disk:ar/Artic#?.guide.info $help
  115.   echo "$help" >ENVARC:Artic_Help_Path
  116.   echo "$help" >ENV:Artic_Help_Path
  117.   echo "  delete $help(Artic#?.guide#?)"     >>t:un
  118.   echo "  delete ENV:Artic_Help_Path"        >>t:un
  119.   echo "  delete ENVARC:Artic_Help_Path"     >>t:un  
  120.  
  121.   echo "endif" >>t:un
  122.  
  123.   Echo "*n*nVersions installed " 
  124.   version l:artic FULL
  125.   version `get aman`aman  FULL
  126.  
  127.   copy  t:un s:Uninstall_Artic
  128.   delete t:un >NIL:
  129.  
  130.   if $tipo EQ "file"
  131.     assign Artic_Disk:
  132.   endif
  133.  
  134.   echo "*n*E[32mInstallation Terminated.*E[0m*n"
  135.   echo "UnInstallation Script has been copied in S:Uninstall_Artic"
  136.   echo "(See Documentation in $help for more information)"
  137.   echo "*nIf you have an old version (<=V1.5) already loaded in memory,"
  138.   echo "please *E[32mRESET*E[0m the machine !"
  139.   echo "*nOtherwise Type *"`get aman`aman*" to start the Manager."
  140.   ask  "*nPress Return To Continue"
  141.  
  142.   unset cmds
  143.   unset aman
  144.   unset help
  145.   unset tipo
  146.   unset rq
  147.  
  148. Else
  149.   echo "ABORTED !"
  150. EndIf
  151.  
  152.